home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / examples / lja < prev    next >
Text File  |  1996-04-13  |  511b  |  38 lines
  1. #
  2. # The examples from the Linux Journal Article...
  3. #
  4.  
  5. #
  6. # Example 1
  7. #
  8.  
  9. \ type t.dat
  10. \ type gtvec 
  11.  
  12. rfile gtvec
  13.  
  14. while (length (line = getline ("examples.t/dat")))
  15. {
  16.   tdat.[line.[1]] = gtvec (line);
  17. }
  18. plpoint (8:1:-1);
  19. plstyle ("line-point");
  20. plegend( members (tdat) );
  21. pltitle ("Test Data");
  22. plot (tdat);
  23.  
  24.  
  25. #
  26. # Example 2
  27. #
  28.  
  29. require surspl
  30.  
  31. z1 = rand(10,10);
  32. x1 = y1 = 1:10;
  33. x2 = y2 = 1:10:0.25;
  34. z2 = surspl (x2, y2, x1, y1, z1);
  35. plmesh (<< x=x1 ; y=y1 ; z=z1 >>);
  36. pause ();
  37. plmesh (<< x=x2 ; y=y2 ; z=z2 >>); 
  38.